home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / guide / html-hea.lha / ARexx / html-skoed.rexx < prev    next >
OS/2 REXX Batch file  |  1995-05-04  |  2KB  |  42 lines
  1. /* HTML-Helper Arexx script for SkoEd
  2.  * Ver      : 1.0 (4th May 1995)
  3.  * Author   : paul Kolenbrander (paul@serena.iaehv.nl)
  4.  * Function : Pass on the HTML commands from HTML-Helper to SkoEd.
  5.  * Input    : HTMLCMD - The HTML command to be inserted.
  6. */
  7.  
  8. OPTIONS RESULTS                              /* enable return codes     */
  9. OPTIONS FAILAT 11                            /* Needed for block detect */
  10. PARSE ARG HTMLCMD
  11.  
  12. ADDRESS 'SKOED1'                             /* Default, edit if needed */
  13.  
  14. HTMLCMD = SUBSTR(HTMLCMD,2, LENGTH(HTMLCMD)-2) /* strip leading/trailing "*/
  15.  
  16. IF POS('><',HTMLCMD) ~= 0 THEN DO             /* Is it a split command?  */
  17.                                               /* If yes, then....        */
  18.  
  19.  "Mark"
  20.  "EndOfBlock"
  21.  IF RC = 0 THEN DO                         /* error means no block    */
  22.    CMD2 = right(HTMLCMD,(LENGTH(HTMLCMD)-(LASTPOS('<',HTMLCMD))+1))
  23.    CMD1 = substr(HTMLCMD,1,(LENGTH(HTMLCMD)-LENGTH(CMD2)))
  24.    "EndOfBlock"
  25.    "String("||CMD2||")"                       /* Insert at block end     */
  26.    "StartOfBlock"
  27.    "String("||CMD1||")"                       /* Insert at block begin   */
  28.    "Block_Hide"                               /* And clean up            */
  29.    "Goto_Mark"
  30.    "UnMark"
  31.  END
  32.   else DO
  33.    "Goto_Mark"
  34.    "String("||HTMLCMD||")"                   /* Insert at current pos   */
  35.    "UnMark"
  36.   END
  37. END
  38. else
  39.    "String("||HTMLCMD||")"                   /* Insert at current pos   */
  40. EXIT                                          /* And exit the script.    */
  41.  
  42.